home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1989 July & August / rerun-1989-07-08.d64 / demo part 2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  109 lines
  1. 10 remb$="front pic    pic":rem *as
  2. 11 remb$="book cover  mpic":rem *aas
  3. 12 b$="pi.authors":rem*blaz
  4. 14 remb$="fdjaguar":rem*flex
  5. 16 gosub1068:rem default colors
  6. 18 gosub1074:rem print text
  7. 20 gosub1012:rem load pic file
  8. 22 gosub1014:rem move files *blaz
  9. 24 remgosub1016:rem move files *flex
  10. 26 gosub1018:rem move pic to stby
  11. 28 gosub1020:rem wait
  12. 30 gosub1024:rem screen off
  13. 32 gosub1026:rem go multi+hires
  14. 34 remgosub1034:rem move colors *as*aas
  15. 36 gosub1044:rem move colors *blaz
  16. 38 remgosub1054:rem move colors *flex
  17. 40 remgosub1056:remmulticolroff*flex*as
  18. 42 gosub1058:gosub1060:remscrnonfadein
  19. 44 gosub1020:rem wait
  20. 46 remgosub1062:remmulticoloron*flex*as
  21. 48 gosub1064:gosub1066:rem fade+exit
  22. 50 remb$="front pic    pic":rem *as
  23. 51 remb$="book cover  mpic":rem *aas
  24. 52 remb$="pi.authors":rem*blaz
  25. 54 b$="fdjaguar":rem*flex
  26. 56 gosub1068:rem default colors
  27. 58 gosub1174:rem print text
  28. 60 gosub1012:rem load pic file
  29. 62 remgosub1014:rem move files *blaz
  30. 64 gosub1016:rem move files *flex
  31. 66 gosub1018:rem move pic to stby
  32. 68 gosub1020:rem wait
  33. 70 gosub1024:rem screen off
  34. 72 gosub1026:rem go multi+hires
  35. 74 remgosub1034:rem move colors *as*aas
  36. 76 remgosub1044:rem move colors *blaz
  37. 78 gosub1054:rem move colors *flex
  38. 80 gosub1056:remmulticolroff*flex*as
  39. 82 gosub1058:gosub1060:remscrnonfadein
  40. 84 gosub1020:rem wait
  41. 86 gosub1062:remmulticoloron*flex*as
  42. 88 gosub1064:gosub1066:rem fade+exit
  43. 1000 rem end message
  44. 1002 print"[147]":fori=1to10:print:next:printspc(10)"that's all folks!":end
  45. 1003 printchr$(147):fori=1to10:print:next:printspc(11)"loading demo part 2"
  46. 1004 p$="demo part 2"
  47. 1005 print"":print:print:print"load";chr$(34);p$;chr$(34);",8":print:print
  48. 1006 print:print:print"run":printchr$(19):poke198,2:poke631,13:poke632,13:end
  49. 1009 rem ****************************
  50. 1010 rem ******* subroutines ********
  51. 1011 rem ****************************
  52. 1012 open1,8,1,b$:poke780,0:sys65493:close1:return
  53. 1014 sys53000,40960,8192,10239,1:return:rem move blazing paddles pic to 8192
  54. 1016 sys53000,24576,8192,8000,1:return:rem move flexidraw pic to 8192
  55. 1018 sys53105,0:return:rem fade out
  56. 1020 geta$:ifa$=chr$(136)thenreturn
  57. 1022 goto1020
  58. 1024 poke53265,peek(53265)and239:return:rem screen off
  59. 1026 poke53272,peek(53272)or8:remhires
  60. 1028 poke53265,peek(53265)or32:remhires
  61. 1030 poke53270,peek(53270)or16:remmulticolor on
  62. 1032 return
  63. 1034 sys53000,16192,1024,1000,1
  64. 1036 sys53000,17208,55296,1000,1
  65. 1038 poke53280,peek(17192)
  66. 1040 poke53281,peek(17193)
  67. 1042 return
  68. 1044 sys53000,16384,1024,1000,1
  69. 1046 sys53000,17408,55296,1000,1
  70. 1048 poke53280,peek(16255)and15:rem bdr
  71. 1050 poke53281,peek(16256):rem screen
  72. 1052 return
  73. 1054 sys53000,23552,1024,1000,1:return
  74. 1056 poke53270,peek(53270)and239:return
  75. 1058 poke53265,peek(53265)or16:return
  76. 1060 sys53105,1:return:rem fade in
  77. 1062 poke53270,peek(53270)or16:return
  78. 1064 sys53105,0:return:rem fade out
  79. 1066 printchr$(147):poke56576,199:poke53265,27:poke53270,200:poke53272,21
  80. 1068 printchr$(147):poke53281,0:poke53281,0:poke646,14:return:rem default color
  81. 1074 print"":print:poke646,7
  82. 1075 print "page 3[146]":fori=1to3:print:next
  83. 1076 print" the following is a picture drawn using"
  84. 1077 printspc(12)"blazing paddles"
  85. 1078 print:print"page 3 text goes in lines 1074-1086
  86. 1079 [153]"in demo program 2.                  "
  87. 1080 [153]
  88. 1081 [153]"be creative! let your imagination run
  89. 1082 print"free & create a computerized storybook!
  90. 1083 [153][166]15)"         "
  91. 1084 [153]"":[129]i[178]1[164]19:[153]:[130]
  92. 1085 [153][166]29)"          ":[153]
  93. 1086 [153]"after the disk drive light goes out,    press f7 to continue.":[142]
  94. 1174 [153]"":[153]:[151]646,1
  95. 1175 [153]"page 4wait":[129]i[178]1[164]3:[153]:[130]
  96. 1176 [153]" the following is a picture drawn using":[153]:[153]
  97. 1177 [153][166]12)"flexidraw 5.5  "
  98. 1178 [153]:[153]"page 4 text is in lines 1174-1186
  99. 1179 print"in demo program 2.                  "
  100. 1180 printspc(18)"  "
  101. 1181 print"list these programs and learn how
  102. 1182 [153]"to make your own storybook 64!
  103. 1183 printspc(15)"have fun!"
  104. 1184 print"":fori=1to19:print:next
  105. 1185 printspc(29)"          ":print
  106. 1186 print"after the disk drive light goes out,    press f7 to continue.":return
  107. 9999 end
  108. 10000 a=peek(46)*256:b=peek(45):print"basic program extends to";:printa+b
  109.